Details

Step 1

Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla

Step 2

Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla

Step 3

Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla

Data acquisition

Col 1

The data is acquired here

raw <- mtcars

Col 2

The data is treated here [1,2]

raw.treated <- raw %>% mutate(mpg_n = mpg/max(mpg))

Plotting the data

Plotting other data

Session Info

R version 4.1.3 (2022-03-10)

Platform: x86_64-apple-darwin17.0 (64-bit)

locale: en_GB.UTF-8||en_GB.UTF-8||en_GB.UTF-8||C||en_GB.UTF-8||en_GB.UTF-8

attached base packages:

other attached packages:

loaded via a namespace (and not attached):

References

[1]
Ashcroft & Mermin. ‘Solid state physics’. (Holt Saunders, New York, 1976).
[2]
Doe & Doe. ‘An article title’. Journal of Templates 90, (2022). DOI: 10.1103/physrevb.90.054105
---
title : "Simules MD Peapods"
author: "C. Bousige"
date  : "`r Sys.Date()`"
output: 
    flexdashboard::flex_dashboard:
        vertical_layout: scroll
        source_code    : embed
bibliography  : "biblio.bib"
csl           : "nature.csl"
link-citations: true
---

```{r setup, include=FALSE, warning = FALSE, cache=FALSE}
library(tidyverse)
library(patchwork)
library(plotly)
```

# Details {data-icon="fa-info-circle"}


Step 1



Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 
Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 
Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 



Step 2


Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 
Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 
Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 



Step 3


Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 
Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 
Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla Bla bla bla 

# Data acquisition {data-icon="fa-chart-line"}

## Col 1

### The data is acquired here

```{r data_acquisition, message=FALSE, warning=FALSE, echo=TRUE}
raw <- mtcars
```

## Col 2

### The data is treated here [@ashcroft_solid_1976;@fake_article]

```{r data_treat, message=FALSE, warning=FALSE, echo=TRUE}
raw.treated <- raw %>% mutate(mpg_n = mpg/max(mpg))
```


# Plotting the data {data-navmenu="Plotting" data-icon="fa-chart-line"}

```{r, message=FALSE, warning=FALSE, echo=FALSE, fig.align="center", fig.height=7}
P <- raw.treated %>% 
    ggplot(aes(mpg_n, disp, color=factor(cyl)))+geom_point()
ggplotly(P, dynamicTicks = TRUE)
```

# Plotting other data {data-navmenu="Plotting" data-icon="fa-chart-line"}

```{r, message=FALSE, warning=FALSE, echo=FALSE, fig.align="center", fig.height=7}
z <- volcano
x <- 10 * (1:nrow(z)) # Should that not be ncol?
y <- 10 * (1:ncol(z)) # Should that not be nrow?
plot_ly(x=x, y=y, z=z, type = "surface")
```

# Session Info {data-icon="fa-info-circle"}

```{r}
sessionInfo() %>%
    pander::pander(compact = FALSE)
```


# References